home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital News 2
/
Digital_News_2_1988_-_de_Side_B.d64
/
special save
< prev
next >
Wrap
Text File
|
2022-10-26
|
971b
|
86 lines
;special save (auch unter $d000)
; (w) by mws
;in $ac/$ad = anfangsadresse
;in $ae/$af = endadresse
slo = $ac
shi = $ad
elo = $ae
ehi = $af
lda #$08
tax
ldy #$01
jsr $ffba
lda #$03
ldx #<nam
ldy #>nam
jsr $ffbd
jsr $ffc0
lda #$61
sta $b9
jsr $f3d5
lda $ba
jsr $ed0c
lda $b9
jsr $edb9
lda slo
jsr $eddd
lda shi
jsr $eddd
ok ldy #$00
sei
sty $01
lda (slo),y
dey
sty $01
cli
jsr $eddd
bit $90
bvc ende
inc slo
bne kkb
inc shi
kkb ldy slo
cpy elo
bne ok
ldy shi
cpy ehi
bne ok
ende jsr $ffc3
jsr $ffe7
jsr $f642
rts
nam .text "@:a"